﻿Public Class FrmMantenimientoBasicoEliminar

    Private mMantenimientoBS As BS.MantenimientoBasico
    Private mMantenimientoBE As BE.MantenimientoBasico
    Private mId As Integer

    Public Property Id() As Integer
        Get
            Return mId
        End Get
        Set(ByVal value As Integer)
            mId = value
        End Set
    End Property

    Private Sub FrmMantenimientoBasico_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load


        mMantenimientoBS = New BS.MantenimientoBasico
        mMantenimientoBE = mMantenimientoBS.Obtener(Me.Id)

        Me.txtNombre.Text = mMantenimientoBE.Nombre
        Me.txtDescripcion.Text = mMantenimientoBE.Descripcion
        Me.txtNombre.Enabled = False
        Me.txtDescripcion.Enabled = False

    End Sub

    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
        Me.mMantenimientoBS = New BS.MantenimientoBasico



        If MessageBox.Show("Desea eliminar los datos?", "Información", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then

            If (Not mMantenimientoBS.Eliminar(mMantenimientoBE.Id)) Then
                MessageBox.Show("Problemas al Eliminar")
            Else
                Me.DialogResult = Windows.Forms.DialogResult.OK
            End If

        End If


    End Sub


End Class
